home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / M-Md / MacWedding.cpt / MacWedding Install / card_3631.txt < prev    next >
Text File  |  1992-07-20  |  11KB  |  413 lines
  1. -- card: 3631 from stack: in
  2. -- bmap block id: 2930
  3. -- flags: 0000
  4. -- background id: 2740
  5. -- name: Start
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=460 top=37 right=62 bottom=486
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Home
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect iris close
  23.   go Home
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 11 (field)
  29. -- low flags: 01
  30. -- high flags: 0000
  31. -- rect: left=102 top=70 right=215 bottom=364
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 21
  36. -- text size: 10
  37. -- style flags: 256
  38. -- line height: 13
  39. -- part name: 
  40.  
  41.  
  42. -- part 27 (field)
  43. -- low flags: 01
  44. -- high flags: 0000
  45. -- rect: left=65 top=225 right=243 bottom=182
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 65535
  49. -- font id: 3
  50. -- text size: 10
  51. -- style flags: 0
  52. -- line height: 13
  53. -- part name: 
  54.  
  55.  
  56. -- part 28 (field)
  57. -- low flags: 01
  58. -- high flags: 0000
  59. -- rect: left=65 top=249 right=266 bottom=182
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 65535
  63. -- font id: 3
  64. -- text size: 10
  65. -- style flags: 0
  66. -- line height: 13
  67. -- part name: 
  68.  
  69.  
  70. -- part 29 (field)
  71. -- low flags: 01
  72. -- high flags: 0000
  73. -- rect: left=66 top=272 right=289 bottom=182
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 65535
  77. -- font id: 3
  78. -- text size: 10
  79. -- style flags: 0
  80. -- line height: 13
  81. -- part name: 
  82.  
  83.  
  84. -- part 31 (field)
  85. -- low flags: 03
  86. -- high flags: 4000
  87. -- rect: left=215 top=225 right=243 bottom=360
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 3
  92. -- text size: 10
  93. -- style flags: 256
  94. -- line height: 13
  95. -- part name: Bride
  96.  
  97.  
  98. -- part 32 (field)
  99. -- low flags: 03
  100. -- high flags: 4000
  101. -- rect: left=215 top=249 right=266 bottom=360
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 3
  106. -- text size: 10
  107. -- style flags: 256
  108. -- line height: 13
  109. -- part name: Groom
  110.  
  111.  
  112. -- part 33 (field)
  113. -- low flags: 03
  114. -- high flags: 4000
  115. -- rect: left=215 top=272 right=289 bottom=360
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 3
  120. -- text size: 10
  121. -- style flags: 256
  122. -- line height: 13
  123. -- part name: WeddingDate
  124.  
  125.  
  126. -- part 34 (button)
  127. -- low flags: 00
  128. -- high flags: A004
  129. -- rect: left=379 top=86 right=142 bottom=445
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 1028 / 1028
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: MacWedding
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   if the version > 1.9 and cd fld 8 = 1 then
  141.     doMenu "Convert Stack..." without dialog
  142.     put the script of btn 5 into tempScript5
  143.     put 0 into cd fld 8
  144.     lock screen
  145.     show cd fld 9
  146.     unlock screen with dissolve
  147.     push cd
  148.     lock screen
  149.     go home
  150.     go cd Stacks
  151.     get number of lines of fld Paths
  152.     add 1 to it
  153.     put ":MacWedding‚Ñ¢:HomeChurch" into line it of fld Paths
  154.     global priorLevel
  155.     get the userLevel
  156.     put it into priorLevel
  157.     if it < 5 then set the userLevel to 5
  158.     go stack :MacWedding‚Ñ¢:HomeChurch
  159.     doMenu "Convert Stack..." without dialog
  160.     go stack GuestCards
  161.     doMenu "Convert Stack..." without dialog
  162.     go last cd
  163.     set the script of bkgnd btn "SORT" to tempScript5
  164.     global priorLevel
  165.     set the userLevel to priorLevel
  166.     pop cd
  167.     hide cd fld 9
  168.     unlock screen with dissolve
  169.   end if
  170.   if cd fld Bride is empty then
  171.     beep
  172.     ask "Please enter Bride's Name." with "e.g. Mary Smith, etc."
  173.     if it is empty then exit mouseUp
  174.     if it is "e.g. Mary Smith, etc." then
  175.       beep
  176.       answer "You didn't enter the Bride's name!" with "Oops"
  177.       ask "Please enter Bride's Name." with "e.g. Mary Smith, etc."
  178.     end if
  179.     put it into cd fld 5
  180.   end if
  181.   if cd fld Groom is empty then
  182.     beep
  183.     ask "Please enter Groom's Name." with "e.g. John Jones, etc."
  184.     if it is empty then exit mouseUp
  185.     if it is "e.g. John Jones, etc." then
  186.       beep
  187.       answer "You didn't enter the Groom's name!" with "Oops"
  188.       ask "Please enter Groom's Name." with "e.g. Mary Smith, etc."
  189.     end if
  190.     put it into cd fld 6
  191.   end if
  192.   if cd fld WeddingDate is empty then
  193.     beep
  194.     ask "Please enter Wedding Date." with "e.g. 7/15/92, etc."
  195.     if it is empty then exit mouseUp
  196.     if it is "e.g. 7/15/92, etc." then
  197.       beep
  198.       answer "You didn't enter a date!" with "Oops"
  199.       ask "Please enter Wedding Date." with "e.g. 7/15/92, etc."
  200.     end if
  201.     put it into cd fld 7
  202.   end if
  203.   answer "Are you sure the names are spelled right?" with "Yes" or "No"
  204.   if it is "No" then
  205.     put empty into cd fld 5
  206.     put empty into cd fld 6
  207.     exit mouseUp
  208.   end if
  209.   answer "Install a linked button in your home card?" with "Yes" or "Cancel"
  210.   if it = "Cancel" then exit mouseUp
  211.   select me
  212.   doMenu "Copy Button"
  213.   hide me
  214.   lock screen
  215.   put cd fld Bride into Bride
  216.   put cd fld Groom into Groom
  217.   put cd fld WeddingDate into WeddingDate
  218.   convert WeddingDate to abbreviated date
  219.   set lockText of cd fld 5 to true
  220.   set lockText of cd fld 6 to true
  221.   set lockText of cd fld 7 to true
  222.   push card
  223.   go home
  224.   repeat with n = 1 to number of cd btns
  225.     if short name of cd btn n = "MacWedding" then
  226.       choose browse tool
  227.       pop card
  228.       unlock screen
  229.       answer "You had already installed this button!"
  230.       exit mouseUp
  231.     end if
  232.   end repeat
  233.   if the version < 2.0 then
  234.     go cd Stacks
  235.     get number of lines of fld Paths
  236.     add 1 to it
  237.     put ":MacWedding‚Ñ¢:HomeChurch" into line it of fld Paths
  238.     go home
  239.   end if
  240.   doMenu "Paste Button"
  241.   put number of cd btns into holder
  242.   put id of cd btn holder into butID
  243.   set rect of cd btn id butID to 233,148,290,198
  244.   set style of cd btn id butID to transparent
  245.   set name of cd btn id butID to "MacWedding"
  246.   set script of cd btn id butID to "on mouseUp" & return && "visual effect iris open to gray" & return && "visual effect iris open" & return && "if the shiftkey is down then" & return && "go to stack" & quote & ":MacWedding‚Ñ¢:HomeChurch" & quote & return && "exit mouseUp" & return && "end if" & return && "go to cd 2 of stack" & quote & ":MacWedding‚Ñ¢:HomeChurch" & quote & return && "end mouseUp"
  247.   choose browse tool
  248.   get the location of cd btn MacWedding
  249.   click at it
  250.   go previous
  251.   hide cd fld Demo
  252.   put Groom into line 3 of cd fld Couple
  253.   put "and" into line 5 of cd fld Couple
  254.   put Bride into line 7 of cd fld Couple
  255.   put WeddingDate into cd fld Date
  256.   put WeddingDate into bkgnd fld Check
  257.   put cd fld Date into startDate
  258.   go Home
  259.   select cd btn MacWedding
  260.   unlock screen with dissolve
  261.   answer "Position button, then press it to return."
  262.   put "Position btn: ‚ÄúMacWedding‚Ñ¢‚Äù as desired, then press Cmd-Tab, Cmd-M!"
  263. end mouseUp
  264.  
  265.  
  266.  
  267. -- part 41 (button)
  268. -- low flags: 80
  269. -- high flags: A000
  270. -- rect: left=25 top=290 right=311 bottom=67
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 9
  276. -- style flags: 8192
  277. -- line height: 12
  278. -- part name: SORT3
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   answer "Sort all cards in this stack by ..." with "Name" or "Category" or "Cancel"
  282.   if it is "Cancel" then exit mouseUp
  283.   set cursor to watch
  284.   lock screen
  285.   if it is "Name" then sort cds of bkgnd VendorCard by fld VendorName
  286.   if it is "Category" then sort cds of bkgnd VendorCard by fld Category
  287.   go cd 2 of bkgnd VendorCard
  288.   unlock screen with venetian blinds to gray
  289.   set cursor to browse
  290.   beep
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 42 (button)
  296. -- low flags: 80
  297. -- high flags: A000
  298. -- rect: left=66 top=290 right=311 bottom=108
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 1
  302. -- font id: 0
  303. -- text size: 9
  304. -- style flags: 8192
  305. -- line height: 12
  306. -- part name: SORT4
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   answer "Sort all cards in this stack by ..." with "Due Date" or "Resp. Party" or "Alphabetical"
  310.   if it is "Cancel" then exit mouseUp
  311.   set cursor to watch
  312.   lock screen
  313.   if it is "Due Date" then sort cds of bkgnd CheckListCard dateTime by fld DueDate
  314.   if it is "Resp. Party" then sort cds of bkgnd CheckListCard by fld ResParty
  315.   if it is "Alphabetical" then sort cds of bkgnd CheckListCard by fld Task
  316.   go cd 2 of bkgnd CheckListCard
  317.   unlock screen with dissolve
  318.   set cursor to browse
  319.   beep
  320. end mouseUp
  321.  
  322.  
  323.  
  324. -- part 43 (button)
  325. -- low flags: 80
  326. -- high flags: A000
  327. -- rect: left=107 top=290 right=311 bottom=149
  328. -- title width / last selected line: 0
  329. -- icon id / first selected line: 0 / 0
  330. -- text alignment: 1
  331. -- font id: 0
  332. -- text size: 9
  333. -- style flags: 8192
  334. -- line height: 12
  335. -- part name: SORT5
  336. ----- HyperTalk script -----
  337. on mouseUp
  338.   answer "Sort all cards in this stack by ..." with "Table No." or "Resp. Party" or "Last Name"
  339.   if it is "Cancel" then exit mouseUp
  340.   set cursor to watch
  341.   lock screen
  342.   if it is "Last Name" then sort cds of bkgnd GuestCard by fld LastName
  343.   if it is "Resp. Party" then sort cds of bkgnd GuestCard by fld RespParty
  344.   if it is "Table No." then sort cds of bkgnd GuestCard by fld RespParty
  345.   go cd 2 of bkgnd GuestCard
  346.   unlock screen
  347.   set cursor to browse
  348.   beep
  349. end mouseUp
  350.  
  351.  
  352.  
  353. -- part 44 (field)
  354. -- low flags: 80
  355. -- high flags: 0002
  356. -- rect: left=464 top=302 right=319 bottom=487
  357. -- title width / last selected line: 0
  358. -- icon id / first selected line: 0 / 0
  359. -- text alignment: 0
  360. -- font id: 3
  361. -- text size: 12
  362. -- style flags: 0
  363. -- line height: 16
  364. -- part name: 
  365.  
  366.  
  367. -- part 47 (field)
  368. -- low flags: 81
  369. -- high flags: 0004
  370. -- rect: left=144 top=113 right=170 bottom=315
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 0
  374. -- font id: 2
  375. -- text size: 12
  376. -- style flags: 256
  377. -- line height: 16
  378. -- part name: 
  379.  
  380.  
  381. -- part contents for background part 6
  382. ----- text -----
  383. MacWedding‚Ñ¢ Registration Demo
  384.  
  385. -- part contents for card part 27
  386. ----- text -----
  387. Bride's Name:
  388.  
  389. -- part contents for card part 28
  390. ----- text -----
  391. Groom's Name:
  392.  
  393. -- part contents for card part 29
  394. ----- text -----
  395. Wedding Date:
  396.  
  397. -- part contents for card part 11
  398. ----- text -----
  399. To install MacWedding and add a linked button to your HOME Card place the cursor over the MacWedding button and click. --------->
  400.         
  401. Position the HOME Card button as instructed. Then follow the directions in the lower dialog box, appearing on that card.
  402.  
  403. In the future you can enter MacWedding directly from your HOME Card.
  404.  
  405.  
  406. -- part contents for card part 44
  407. ----- text -----
  408. 1
  409.  
  410. -- part contents for card part 47
  411. ----- text -----
  412. Please stand by!
  413. Program converting to H.C. 2 configuration.